﻿Public Class FrmRptTraslado
    Private NUM_TRASLADO As String
    Private dtTraslado As DataTable
    Private FECHA As String
    Private usuario As GBDZafiro.Usuario

    Sub New(ByRef NUM_TRASLADO As String, _
            ByRef dtTraslado As DataTable, _
            ByRef FECHA As String, _
            ByRef usuario As GBDZafiro.Usuario)
        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.NUM_TRASLADO = NUM_TRASLADO
        Me.dtTraslado = dtTraslado
        Me.FECHA = FECHA
        Me.usuario = usuario
    End Sub

    Private Sub FrmRptTraslado_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        RptInventarioFacturacion.RptTraslado(rvTraslado, NUM_TRASLADO, dtTraslado, FECHA, usuario)
        Me.rvTraslado.RefreshReport()
    End Sub
End Class